home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / lock.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  781 b   |  52 lines
  1. # CVS $Id: lock.tcl,v 1.3 1995/02/03 16:54:59 zibi Exp $
  2. #
  3. # Test of the VtLock command
  4. #
  5.  
  6. source tools.tcl
  7.  
  8. proc popLockCB {cbs} {
  9.     VtLock
  10.  
  11.     set target [keylget cbs widget]
  12.  
  13.     set dlog [VtMessageDialog $target.mess -message "I'm locked" \
  14.               -okLabel "Another..." -okCallback popLockCB \
  15.           -cancelCallback CloseDialogCB \
  16.           -autoDestroy FALSE -autoHide FALSE \
  17.           -hidden false ]
  18.  
  19.     sleep 4
  20.  
  21.     VtUnLock
  22.  
  23.     VtSetValues $dlog -message "Unlocked "
  24.  
  25. }
  26.  
  27.  
  28. proc lockCB {cbs} {
  29.     VtLock
  30.     sleep 6
  31.     VtUnLock
  32. }
  33.  
  34. set ap [VtOpen Lock]
  35.  
  36.  
  37. set dlog [VtFormDialog $ap.form ]
  38.  
  39.  
  40. set rc [VtRowColumn $dlog.rc]
  41.  
  42. VtPushButton $rc.PopLock -callback popLockCB
  43.  
  44. VtPushButton $rc.Lock  -callback lockCB
  45.  
  46. VtPushButton $rc.Exit  -callback QuitCB
  47.  
  48. VtShow $dlog
  49.  
  50. VtMainLoop
  51.  
  52.